
REM  ----  The PYRAMID Adventure  *.CMD file

COMMAND ANY        
NOT AtLocation 59 ; Player is NOT located at endless desert  >ALL
NOT AtLocation 20 ; Player is NOT located at endless desert  >N S E W
NOT AtLocation 61 ; Player is NOT located at rolling dunes  >ALL
SetVariableTo 5 16 ; Set variable number 5 to 16
END_COMMAND

COMMAND WEAR AMULET    
NOUNPresent ; $NOUN$ is here?
PlusScore 13 ; Add 13 to game score
PrintMessage 30 ; You put on the amulet and feel a wave of strength 
Tone 2000 120 ; make a sount of 2000 hertz for 120 milliseconds
Tone 3200 300 ; make a sount of 3200 hertz for 300 milliseconds
Tone 1800 130 ; make a sount of 1800 hertz for 130 milliseconds
PrintMessage 27 ;                                                   
END_COMMAND

COMMAND ANY        
Chance 8 ; 8% of returning TRUE?
AtLocation 9 ; Player is located at Barque Room  >W UP
 OR 
AtLocation 10 ; Player is located at Guard Room  >E
 OR 
AtLocation 13 ; Player is located at burial chamber  >N S E W
Tone 800 400 ; make a sount of 800 hertz for 400 milliseconds
Tone 600 300 ; make a sount of 600 hertz for 300 milliseconds
PrintMessage 66 ; From somewhere in the room a hidden loudspeaker an
END_COMMAND

COMMAND ANY        
NOT InRoom 306 ; TOURIST GROUP is NOT here?
Chance 10 ; 10% of returning TRUE?
AtLocation 5 ; Player is located at Great Museum Hall  >N S E W
 OR 
AtLocation 6 ; Player is located at Crafts Room  >E
 OR 
AtLocation 7 ; Player is located at Shrine Room  >W
PrintMessage 68 ; A small group of Japanese tourists enters the room
PutInCurrentRoom 306 ; Put noun (TOURIST GROUP) in current room
END_COMMAND

COMMAND ATTACK GROUP    
PrintMessage 69 ; As you try to $VERB$ the Japanese tourists they sh
SendToRoom 306 8 ; Put item (TOURIST GROUP) in room 8 (Exhibition Hall  >S)
DoneWithTurn
END_COMMAND

COMMAND TELL GROUP    
PrintMessage 67 ; You try to talk to one of the Japanese tourists bu
DoneWithTurn
END_COMMAND

COMMAND ASK GROUP    
ReDirectTo TELL GROUP    
END_COMMAND

COMMAND TELL PHARAO    
Present 302 ; RESURRECTED PHARAO is here?
IsSomewhere 213 ; ROYAL ARMS is somewhere?
PrintMessage 70 ; You kindly ask the Pharao how he feels after the r
DoneWithTurn
END_COMMAND

COMMAND TELL PHARAO    
Present 302 ; RESURRECTED PHARAO is here?
IsNoWhere 213 ; ROYAL ARMS is in Room Zero?
PrintMessage 71 ; You ask the Pharao about how to get home. He says 
DoneWithTurn
END_COMMAND

COMMAND ASK PHARAO    
ReDirectTo TELL PHARAO    
END_COMMAND

COMMAND FUCK        
PrintMessage 35 ; Are you sick? There is nobody you'd want to fuck h
DoneWithTurn
END_COMMAND

COMMAND FUCK        
NOUNPresent ; $NOUN$ is here?
PrintMessage 33 ; You fuck the $NOUN$ for a while but suddenly feel 
DoneWithTurn
END_COMMAND

COMMAND PISS        
TurnFlagOFF 10 ; Turn flag number 10 OFF
PrintMessage 34 ; After a little $VERB$ you feel quite relieved.    
DoneWithTurn
END_COMMAND

COMMAND GIVE BILL    
AtLocation 101 ; Player is located at Taxi Cab
Present 223 ; 100-DOLLAR BILL is here?
PrintMessage 46 ; As you pay the fare with the 100-dollar bill the d
SwapLocations 223 224 ; Swap locations of nouns  (100-DOLLAR BILL) and (SMALL CHANGE)
GoToRoom 17 ; Go to location 17 -- outside shop  >N S E W
DoneWithTurn
END_COMMAND

COMMAND PAY DRIVER    
AtLocation 101 ; Player is located at Taxi Cab
Present 223 ; 100-DOLLAR BILL is here?
ReDirectTo GIVE BILL
END_COMMAND

COMMAND GIVE BILL IN DRIVER
ReDirectTo GIVE BILL
END_COMMAND

COMMAND TELL CLERK    
AtLocation 18 ; Player is located at souvenir shop  >S
FlagOFF 3 ; Flag number 3 is OFF?
PrintMessage 18 ; As you talk to the clerk he seems to awake from hi
PutInCurrentRoom 211 ; Put noun (SACRED AMULET) in current room
DoneWithTurn
END_COMMAND

COMMAND ANY        
AtLocation 18 ; Player is located at souvenir shop  >S
FlagOFF 3 ; Flag number 3 is OFF?
Present 211 ; SACRED AMULET is here?
PrintMessage 19 ; You would very much like to buy the amulet, but th
TurnFlagON 3 ; Turn flag number 3 ON
Destroy 224 ; Destroy noun (SMALL CHANGE)
GetIt 211 ; Get noun 211 -- SACRED AMULET
GetIt 223 ; Get noun 223 -- 100-DOLLAR BILL
GoToRoom 17 ; Go to location 17 -- outside shop  >N S E W
PlusScore 12 ; Add 12 to game score
PrintMessage 27 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND LIGHT LAMP    
IsCarrying 205 ; SAFETY MATCHES is being carried?
VariableLT 1 5 ; Variable number 1 is less than 5?
CounterLT 1 25 ; Counter number 1 is less than 25?
IsCarrying 221 ; OIL LAMP is being carried?
SwapLocations 221 222 ; Swap locations of nouns  (OIL LAMP) and (OIL LAMP)
AddToVariable 1 1 ; Increase variable number 1 by 1
TurnCounterON 1 ; Turn counter number 1 ON
PrintMessage 1 ; The small oil lamp is burning brightly now.       
DoneWithTurn
END_COMMAND

COMMAND LIGHT LAMP    
IsCarrying 205 ; SAFETY MATCHES is being carried?
CounterGT 1 25 ; Counter number 1 is greater than 25?
PrintMessage 64 ; You try to light the lamp, but the wick is dry. Th
DoneWithTurn
END_COMMAND

COMMAND LIGHT LAMP    
NOT IsCarrying 205 ; SAFETY MATCHES is NOT being carried?
PrintMessage 65 ; How do you think you are going to light the $NOUN$
DoneWithTurn
END_COMMAND

COMMAND LIGHT LAMP    
IsCarrying 205 ; SAFETY MATCHES is being carried?
VariableGT 1 5 ; Variable number 1 is greater than 5?
SwapLocations 205 207 ; Swap locations of nouns  (SAFETY MATCHES) and (EMPTY MATCHBOX)
PrintMessage 6 ; Though the box still contains some matches you can
DoneWithTurn
END_COMMAND

COMMAND FILL LAMP    
Present 222 ; OIL LAMP is here?
 OR 
Present 221 ; OIL LAMP is here?
Present 229 ; OIL VIAL is here?
IsOpen 229 ; OIL VIAL is OPEN?
PrintMessage 3 ; You pour a little oil into the oil lamp.          
TurnCounterOFF 1 ; Turn counter number 1 OFF
TurnCounterON 1 ; Turn counter number 1 ON
DoneWithTurn
END_COMMAND

COMMAND FILL VIAL IN LAMP
Present 222 ; OIL LAMP is here?
 OR 
Present 221 ; OIL LAMP is here?
Present 229 ; OIL VIAL is here?
IsOpen 229 ; OIL VIAL is OPEN?
PrintMessage 3 ; You pour a little oil into the oil lamp.          
TurnCounterOFF 1 ; Turn counter number 1 OFF
TurnCounterON 1 ; Turn counter number 1 ON
DoneWithTurn
END_COMMAND

COMMAND OPEN VIAL IN CORKSCREW
Present 229 ; OIL VIAL is here?
Present 202 ; BRAZEN CORKSCREW is here?
IsLocked 229 ; OIL VIAL is LOCKED?
Tone 100 100 ; make a sount of 100 hertz for 100 milliseconds
PrintMessage 17 ; You have some difficulty turning the corkscrew int
UnLockIt 229 ; Unlock noun (OIL VIAL)
OpenIt 229 ; Open noun (OIL VIAL)
DoneWithTurn
END_COMMAND

COMMAND OPEN VIAL    
Present 229 ; OIL VIAL is here?
Present 202 ; BRAZEN CORKSCREW is here?
ReDirectTo OPEN VIAL IN CORKSCREW
END_COMMAND

COMMAND OPEN VIAL    
NOT Present 202 ; BRAZEN CORKSCREW is NOT here?
PrintMessage 38 ; You try your best but can't seem to open the vial 
DoneWithTurn
END_COMMAND

COMMAND FILL LAMP    
Present 222 ; OIL LAMP is here?
 OR 
Present 221 ; OIL LAMP is here?
Present 229 ; OIL VIAL is here?
IsClosed 229 ; OIL VIAL is CLOSED?
PrintMessage 5 ; You'll have to open the vial of embalming oil firs
DoneWithTurn
END_COMMAND

COMMAND FILL VIAL IN LAMP
Present 222 ; OIL LAMP is here?
 OR 
Present 221 ; OIL LAMP is here?
Present 229 ; OIL VIAL is here?
IsClosed 229 ; OIL VIAL is CLOSED?
PrintMessage 5 ; You'll have to open the vial of embalming oil firs
DoneWithTurn
END_COMMAND

COMMAND FILL VIAL IN URN
FlagOFF 6 ; Flag number 6 is OFF?
IsOpen 229 ; OIL VIAL is OPEN?
Together 226 225 ; EMBALMED MUMMY is with PHARAO'S SARCOPHAGUS?
IsWearing 211 ; SACRED AMULET is being worn?
PrintMessage 31 ; As you pour the last drop from the vial into the u
TurnFlagON 5 ; Turn flag number 5 ON
Tone 1800 100 ; make a sount of 1800 hertz for 100 milliseconds
Tone 3000 80 ; make a sount of 3000 hertz for 80 milliseconds
Tone 3700 160 ; make a sount of 3700 hertz for 160 milliseconds
DoneWithTurn
END_COMMAND

COMMAND FILL VIAL IN URN
NOT IsOpen 229 ; OIL VIAL is NOT OPEN?
PrintMessage 5 ; You'll have to open the vial of embalming oil firs
DoneWithTurn
END_COMMAND

COMMAND FILL VIAL IN URN
FlagON 6 ; Flag number 6 is ON?
 OR 
NOT IsWearing 211 ; SACRED AMULET is NOT being worn?
PrintMessage 52 ; As you pour some fluid into the urn nothing happen
DoneWithTurn
END_COMMAND

COMMAND SPILL URN    
FlagON 6 ; Flag number 6 is ON?
PrintMessage 51 ; You already spilled the urn, unwisely.            
DoneWithTurn
END_COMMAND

COMMAND SPILL URN    
AtLocation 50 ; Player is located at burial chamber  >N S E W
FlagON 5 ; Flag number 5 is ON?
PrintMessage 32 ; As you spill the contents of the urn it becomes su
Destroy 226 ; Destroy noun (EMBALMED MUMMY)
PutInCurrentRoom 302 ; Put noun (RESURRECTED PHARAO) in current room
PlusScore 12 ; Add 12 to game score
PrintMessage 27 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND SPILL URN    
NOUNPresent ; $NOUN$ is here?
PrintMessage 50 ; You generously spill the contents of the urn that 
TurnFlagON 6 ; Turn flag number 6 ON
DoneWithTurn
END_COMMAND

COMMAND SPILL VIAL    
NOUNPresent ; $NOUN$ is here?
PrintMessage 75 ; Out of an insane impulse you spill the oil on the 
Destroy 229 ; Destroy noun (OIL VIAL)
DoneWithTurn
END_COMMAND

COMMAND ANY        
CounterGT 1 20 ; Counter number 1 is greater than 20?
Present 222 ; OIL LAMP is here?
PrintMessage 2 ; The oil lamp flickers wildly for lack of fuel.    
END_COMMAND

COMMAND ANY        
CounterGT 1 25 ; Counter number 1 is greater than 25?
Present 222 ; OIL LAMP is here?
PrintMessage 4 ; The small oil lamp flickers and finally goes out. 
SwapLocations 221 222 ; Swap locations of nouns  (OIL LAMP) and (OIL LAMP)
END_COMMAND

COMMAND EXTINGUISH LAMP    
Present 222 ; OIL LAMP is here?
PrintMessage 4 ; The small oil lamp flickers and finally goes out. 
SwapLocations 222 221 ; Swap locations of nouns  (OIL LAMP) and (OIL LAMP)
DoneWithTurn
END_COMMAND

COMMAND ANY        
AtLocation 22 ; Player is located at Bus Stop  >N
AddToVariable 2 1 ; Increase variable number 2 by 1
VariableGT 2 16 ; Variable number 2 is equal to 16?
PrintMessage 7 ; You have fooled around too long.                  
Destroy 220 ; Destroy noun (BUS TICKET)
DoneWithTurn
END_COMMAND

COMMAND ANY        
AtLocation 22 ; Player is located at Bus Stop  >N
VariableGT 2 6 ; Variable number 2 is equal to 6?
PrintMessage 76 ; As you might have already expected a bus pulls up 
END_COMMAND

COMMAND SOUTH        
AtLocation 22 ; Player is located at Bus Stop  >N
PrintMessage 77 ; YOU can't go south from here. Only the bus can.   
DoneWithTurn
END_COMMAND

COMMAND GET CORKSCREW    
FlagOFF 1 ; Flag number 1 is OFF?
AtLocation 4 ; Player is located at Bazaar  >E
PrintMessage 8 ; As you take the corkscrew an old man appears from 
TurnFlagON 1 ; Turn flag number 1 ON
DoneWithTurn
END_COMMAND

COMMAND NEGOTIATE        
AtLocation 4 ; Player is located at Bazaar  >E
FlagON 1 ; Flag number 1 is ON?
PrintMessage 9 ; You never before had to negotiate about prices but
TurnFlagOFF 1 ; Turn flag number 1 OFF
GetIt 202 ; Get noun 202 -- BRAZEN CORKSCREW
PlusScore 10 ; Add 10 to game score
PrintMessage 27 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND GET        
AtLocation 4 ; Player is located at Bazaar  >E
FlagON 1 ; Flag number 1 is ON?
PrintMessage 36 ; "No, no, this is against the rules," says the old 
DoneWithTurn
END_COMMAND

COMMAND PAY        
AtLocation 4 ; Player is located at Bazaar  >E
ReDirectTo GET        
END_COMMAND

COMMAND PAY        
NOUNPresent ; $NOUN$ is here?
NOT Present 211 ; SACRED AMULET is NOT here?
PrintMessage 78 ; You consider buying the $NOUN$ but on closer exami
DoneWithTurn
END_COMMAND

COMMAND EXAMINE STAND    
AtLocation 6 ; Player is located at Crafts Room  >E
PutInCurrentRoom 221 ; Put noun (OIL LAMP) in current room
PutInCurrentRoom 230 ; Put noun (GOLD COIN) in current room
LookAtRoom ; Give verbose description of current room
END_COMMAND

COMMAND GET SCROLL    
FlagOFF 2 ; Flag number 2 is OFF?
NOUNPresent ; $NOUN$ is here?
TurnFlagON 2 ; Turn flag number 2 ON
PrintMessage 10 ; As you touch the sacred scroll you hear a faint ti
Tone 4440 100 ; make a sount of 4440 hertz for 100 milliseconds
Tone 6660 120 ; make a sount of 6660 hertz for 120 milliseconds
Tone 7770 130 ; make a sount of 7770 hertz for 130 milliseconds
Tone 3330 80 ; make a sount of 3330 hertz for 80 milliseconds
Tone 3000 160 ; make a sount of 3000 hertz for 160 milliseconds
PlusScore 12 ; Add 12 to game score
PrintMessage 27 ;                                                   
END_COMMAND

COMMAND OPEN SARCOPHAGUS    
AtLocation 8 ; Player is located at Exhibition Hall  >S
PrintMessage 11 ; The heavy lid swings open, revealing an empty spac
END_COMMAND

COMMAND ENTER SARCOPHAGUS    
AtLocation 8 ; Player is located at Exhibition Hall  >S
NOUNisOpen ; $NOUN$ is open?
IsCarrying 228 ; PAPYRUS SCROLL is being carried?
PrintMessage 12 ; As you enter the sarcophagus you notice a soft glo
Tone 80 100 ; make a sount of 80 hertz for 100 milliseconds
Tone 60 111 ; make a sount of 60 hertz for 111 milliseconds
GoToRoom 50 ; Go to location 50 -- burial chamber  >N S E W
PutInCurrentRoom 225 ; Put noun (PHARAO'S SARCOPHAGUS) in current room
DoneWithTurn
END_COMMAND

COMMAND ENTER SARCOPHAGUS    
AtLocation 8 ; Player is located at Exhibition Hall  >S
NOUNisClosed ; $NOUN$ is closed?
PrintMessage 13 ; It might help to open the sarcophagus first.      
DoneWithTurn
END_COMMAND

COMMAND ENTER SARCOPHAGUS    
AtLocation 8 ; Player is located at Exhibition Hall  >S
NOUNisOpen ; $NOUN$ is open?
NOT IsCarrying 228 ; PAPYRUS SCROLL is NOT being carried?
PrintMessage 37 ; You enter the sarcophagus.                        
DoneWithTurn
END_COMMAND

COMMAND ENTER SARCOPHAGUS    
AtLocation 50 ; Player is located at burial chamber  >N S E W
PrintMessage 14 ; As you try to step into the sarcophagus again your
Destroy 225 ; Destroy noun (PHARAO'S SARCOPHAGUS)
DoneWithTurn
END_COMMAND

COMMAND NORTH        
AtLocation 51 ; Player is located at Narrow Passage  >N S
IsCarrying 226 ; EMBALMED MUMMY is being carried?
 OR 
InRoom 302 ; RESURRECTED PHARAO is here?
PrintMessage 29 ; As you walk through the death trap the air tingles
Tone 5550 160 ; make a sount of 5550 hertz for 160 milliseconds
Tone 3333 100 ; make a sount of 3333 hertz for 100 milliseconds
END_COMMAND

COMMAND SOUTH        
AtLocation 51 ; Player is located at Narrow Passage  >N S
IsCarrying 226 ; EMBALMED MUMMY is being carried?
 OR 
InRoom 302 ; RESURRECTED PHARAO is here?
PrintMessage 29 ; As you walk through the death trap the air tingles
Tone 5110 178 ; make a sount of 5110 hertz for 178 milliseconds
Tone 2900 100 ; make a sount of 2900 hertz for 100 milliseconds
END_COMMAND

COMMAND NORTH        
AtLocation 51 ; Player is located at Narrow Passage  >N S
NOT IsCarrying 226 ; EMBALMED MUMMY is NOT being carried?
NOT InRoom 302 ; RESURRECTED PHARAO is NOT here?
PrintMessage 22 ; As you carefully edge your way along the wall of t
GoToRoom 105 ; Go to location 105 -- DEATH  >UP/DOWN
Tone 80 600 ; make a sount of 80 hertz for 600 milliseconds
Tone 60 300 ; make a sount of 60 hertz for 300 milliseconds
DoneWithTurn
END_COMMAND

COMMAND SOUTH        
AtLocation 51 ; Player is located at Narrow Passage  >N S
NOT IsCarrying 226 ; EMBALMED MUMMY is NOT being carried?
NOT InRoom 302 ; RESURRECTED PHARAO is NOT here?
PrintMessage 22 ; As you carefully edge your way along the wall of t
GoToRoom 105 ; Go to location 105 -- DEATH  >UP/DOWN
Tone 90 621 ; make a sount of 90 hertz for 621 milliseconds
Tone 77 280 ; make a sount of 77 hertz for 280 milliseconds
DoneWithTurn
END_COMMAND

COMMAND UNLOCK CASE IN COIN
Present 227 ; CARVED CASE is here?
Present 230 ; GOLD COIN is here?
UnLockIt 227 ; Unlock noun (CARVED CASE)
OpenIt 227 ; Open noun (CARVED CASE)
PrintMessage 47 ; You carefully insert the gold coin into the slot..
DoneWithTurn
END_COMMAND

COMMAND INSERT COIN IN CASE
ReDirectTo UNLOCK CASE IN COIN
END_COMMAND

COMMAND INSERT COIN    
Present 227 ; CARVED CASE is here?
Present 230 ; GOLD COIN is here?
ReDirectTo UNLOCK CASE IN COIN
END_COMMAND

COMMAND INSERT COIN    
Present 227 ; CARVED CASE is here?
Present 224 ; SMALL CHANGE is here?
PrintMessage 15 ; You try several different coins but none seem to f
DoneWithTurn
END_COMMAND

COMMAND INSERT        
Present 227 ; CARVED CASE is here?
PrintMessage 16 ; You fiddle around with the case's lock but accompl
DoneWithTurn
END_COMMAND

COMMAND INSERT        
AtLocation 22 ; Player is located at Bus Stop  >N
NOUNPresent ; $NOUN$ is here?
DestroyNOUN ; Destroy $NOUN$
PrintMessage 60 ; As you insert the $NOUN$ into the machine's slot t
DoneWithTurn
END_COMMAND

COMMAND WHISTLE        
Tone 3013 1200 ; make a sount of 3013 hertz for 1200 milliseconds
Tone 2600 1100 ; make a sount of 2600 hertz for 1100 milliseconds
ReDirectTo WAVE BILL
END_COMMAND

COMMAND WAVE BILL    
AtLocation 17 ; Player is located at outside shop  >N S E W
 OR 
AtLocation 19 ; Player is located at outside pyramid  >N S E W
 OR 
AtLocation 20 ; Player is located at endless desert  >N S E W
Present 223 ; 100-DOLLAR BILL is here?
PrintMessage 39 ; Out of thin air a grey taxi cab appears. You get i
GoToRoom 21 ; Go to location 21 -- Taxi stand  >E W
DoneWithTurn
END_COMMAND

COMMAND WAVE BILL    
AtLocation 21 ; Player is located at Taxi stand  >E W
Present 223 ; 100-DOLLAR BILL is here?
PrintMessage 45 ;                                                   
GoToRoom 101 ; Go to location 101 -- Taxi Cab
DoneWithTurn
END_COMMAND

COMMAND WAVE BILL    
NOT Present 223 ; 100-DOLLAR BILL is NOT here?
PrintMessage 73 ; You try to whistle for a taxi but it doesn't seem 
DoneWithTurn
END_COMMAND

COMMAND WAVE        
NOUNPresent ; $NOUN$ is here?
PrintMessage 81 ; You feel a little awkward standing here waving the
DoneWithTurn
END_COMMAND

COMMAND ANY        
AtLocation 59 ; Player is located at endless desert  >ALL
 OR 
AtLocation 20 ; Player is located at endless desert  >N S E W
SubtractFromVariable 5 1 ; Decrease variable number 5 by 1
END_COMMAND

COMMAND ANY        
VariableGT 5 12 ; Variable number 5 is equal to 12?
PrintMessage 23 ; You seem to have lost your way in this desert.    
BlankLine ; print blank line
PrintMessage 40 ; You seem to be walking in circles. You just crosse
BlankLine ; print blank line
END_COMMAND

COMMAND ANY        
VariableLT 5 6 ; Variable number 5 is less than 6?
PrintMessage 24 ; You are feeling very thirsty now...               
END_COMMAND

COMMAND ANY        
VariableGT 5 2 ; Variable number 5 is equal to 2?
PrintMessage 25 ; This thirst is really killing you...              
END_COMMAND

COMMAND ANY        
VariableLT 5 1 ; Variable number 5 is less than 1?
PrintMessage 26 ; You are beginning to hallucinate for want of water
GoToRoom 105 ; Go to location 105 -- DEATH  >UP/DOWN
DoneWithTurn
END_COMMAND

COMMAND ANY        
AtLocation 23 ; Player is located at Airport
NOT IsCarrying 234 ; MEANING OF LIFF is NOT being carried?
IsCarrying 216 ; PHARAO'S JEWELS is being carried?
PutInCurrentRoom 234 ; Put noun (MEANING OF LIFF) in current room
END_COMMAND

COMMAND ANY        
IsCarrying 234 ; MEANING OF LIFF is being carried?
WinGame ; Player wins game at end of turn
END_COMMAND

COMMAND ANY        
NOT IsCarrying 216 ; PHARAO'S JEWELS is NOT being carried?
AtLocation 23 ; Player is located at Airport
PrintMessage 63 ; You fool.                                         
EndGame ; Game ends at end of turn
END_COMMAND

COMMAND DRINK WATER    
AtLocation 65 ; Player is located at Oasis  >ALL
SetVariableTo 5 16 ; Set variable number 5 to 16
END_COMMAND

COMMAND DRINK VIAL    
NOT IsOpen 229 ; OIL VIAL is NOT OPEN?
PrintMessage 5 ; You'll have to open the vial of embalming oil firs
DoneWithTurn
END_COMMAND

COMMAND DRINK VIAL    
PrintMessage 49 ; You drink a little of the rancid oil to discover t
TurnFlagON 10 ; Turn flag number 10 ON
DoneWithTurn
END_COMMAND

COMMAND EAST        
AtLocation 69 ; Player is located at river delta  >N S E W
 OR 
AtLocation 67 ; Player is located at banks of the river Nile  >N S 
PrintMessage 62 ; Clumsily you stumble through the papyrus reeds and
DropIt 231 ; Drop noun 231 -- MASTER KEYRING
GoToRoom 70 ; Go to location 70 -- ocean's edge  >S SE SW
SendAllToRoom 71 ; Send everything to room 71 (high reeds  >ALL)
DoneWithTurn
END_COMMAND

COMMAND EAST        
AtLocation 60 ; Player is located at Building Site  >S E W NW SE SW
PrintMessage 41 ; As you approach the guarded portcullis of the larg
END_COMMAND

COMMAND ASK MARINER IN PHARAO
NOT Present 302 ; RESURRECTED PHARAO is NOT here?
Present 305 ; ANCIENT MARINER is here?
PrintMessage 42 ; The mention of the pharao's name seems to ring a b
PutInCurrentRoom 213 ; Put noun (ROYAL ARMS) in current room
DoneWithTurn
END_COMMAND

COMMAND TELL MARINER IN PHARAO
ReDirectTo ASK MARINER IN PHARAO
END_COMMAND

COMMAND TELL MARINER    
Present 302 ; RESURRECTED PHARAO is here?
Present 305 ; ANCIENT MARINER is here?
PrintMessage 72 ; As you talk to the sailor he notices the Pharao at
GetIt 213 ; Get noun 213 -- ROYAL ARMS
PlusScore 20 ; Add 20 to game score
PrintMessage 27 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND UNLOCK DOOR    
AtLocation 62 ; Player is located at Slave Quarters  >?E ?W
PrintMessage 54 ; You have some difficulty deciding which key to use
GoToRoom 63 ; Go to location 63 -- East of gaol  >S E W SW
PlusScore 10 ; Add 10 to game score
PrintMessage 27 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND OPEN DOOR    
AtLocation 62 ; Player is located at Slave Quarters  >?E ?W
ReDirectTo UNLOCK DOOR    
END_COMMAND

COMMAND TRADE ANY IN ARMS
NOUNPresent ; $NOUN$ is here?
AtLocation 70 ; Player is located at ocean's edge  >S SE SW
PrintMessage 43 ; You trade the $NOUN$ for the flag, hoping you won'
DestroyNOUN ; Destroy $NOUN$
GetIt 213 ; Get noun 213 -- ROYAL ARMS
PlusScore 20 ; Add 20 to game score
PrintMessage 27 ;                                                   
DoneWithTurn
END_COMMAND

COMMAND GET CIGARETTES    
AtLocation 5 ; Player is located at Great Museum Hall  >N S E W
IsOpen 203 ; INFORMATION COUNTER is OPEN?
MinusScore 10 ; Subtract 10 from game score
PrintMessage 28 ;                                                   
GetIt 206 ; Get noun 206 -- ORIENTAL CIGARETTES
DoneWithTurn
END_COMMAND

COMMAND DROP CIGARETTES    
IsCarrying 206 ; ORIENTAL CIGARETTES is being carried?
PrintMessage 48 ; OK.                                               
DropIt 206 ; Drop noun 206 -- ORIENTAL CIGARETTES
DoneWithTurn
END_COMMAND

COMMAND GET MATCHES    
IsOpen 203 ; INFORMATION COUNTER is OPEN?
AtLocation 5 ; Player is located at Great Museum Hall  >N S E W
PlusScore 10 ; Add 10 to game score
PrintMessage 27 ;                                                   
GetIt 205 ; Get noun 205 -- SAFETY MATCHES
DoneWithTurn
END_COMMAND

COMMAND UP        
AtLocation 102 ; Player is located at elevator  >S UP/DOWN
PrintMessage 20 ; As you shift the lever to UP position the elevator
END_COMMAND

COMMAND DOWN        
AtLocation 102 ; Player is located at elevator  >S UP/DOWN
PrintMessage 21 ; By setting the control lever to DOWN position you 
END_COMMAND

COMMAND UP        
AtLocation 105 ; Player is located at DEATH  >UP/DOWN
GoToRandomRoom 106 107 ; Go to random location between HELL and HEAVEN
DoneWithTurn
END_COMMAND

COMMAND DOWN        
AtLocation 105 ; Player is located at DEATH  >UP/DOWN
GoToRandomRoom 107 106 ; Go to random location between HEAVEN and HELL
DoneWithTurn
END_COMMAND

COMMAND HOIST ARMS    
AtLocation 72 ; Player is located at in the royal barque  >DOWN
NOUNPresent ; $NOUN$ is here?
Present 302 ; RESURRECTED PHARAO is here?
Destroy 302 ; Destroy noun (RESURRECTED PHARAO)
PrintMessage 53 ; As you hoist the kings arms to the top a fresh gus
Destroy 213 ; Destroy noun (ROYAL ARMS)
GoToRoom 73 ; Go to location 73 -- royal barque  >DOWN
DoneWithTurn
END_COMMAND

COMMAND HOIST ARMS    
NOT Present 302 ; RESURRECTED PHARAO is NOT here?
PrintMessage 74 ; As you hoist the flag you feel a soft wind rising.
DoneWithTurn
END_COMMAND

COMMAND NORTH        
RoomNeedsLight ; current location does need a light?
NOT LightPresent ; current location is NOT lighted?
PrintMessage 57 ; You try to go $VERB$, but in the dark you bump int
DoneWithTurn
END_COMMAND

COMMAND SOUTH        
RoomNeedsLight ; current location does need a light?
NOT LightPresent ; current location is NOT lighted?
PrintMessage 57 ; You try to go $VERB$, but in the dark you bump int
DoneWithTurn
END_COMMAND

COMMAND WEST        
RoomNeedsLight ; current location does need a light?
NOT LightPresent ; current location is NOT lighted?
PrintMessage 57 ; You try to go $VERB$, but in the dark you bump int
DoneWithTurn
END_COMMAND

COMMAND EAST        
RoomNeedsLight ; current location does need a light?
NOT LightPresent ; current location is NOT lighted?
PrintMessage 57 ; You try to go $VERB$, but in the dark you bump int
DoneWithTurn
END_COMMAND

COMMAND TELL        
NOT NOUNPresent ; $NOUN$ is NOT here?
PrintMessage 55 ; You must be confused. The $NOUN$ isn't here.      
DoneWithTurn
END_COMMAND

COMMAND TELL GUIDE    
NOUNPresent ; $NOUN$ is here?
PrintMessage 80 ; You try to wake the guide and talk to him, but he 
DoneWithTurn
END_COMMAND

COMMAND ASK GUIDE    
ReDirectTo TELL GUIDE    
END_COMMAND

COMMAND TELL        
NOUNPresent ; $NOUN$ is here?
NOT InRoom 301 ; TAXI DRIVER is NOT here?
NOT InRoom 302 ; RESURRECTED PHARAO is NOT here?
NOT InRoom 303 ; SLEEPY CLERK is NOT here?
NOT InRoom 305 ; ANCIENT MARINER is NOT here?
NOT InRoom 306 ; TOURIST GROUP is NOT here?
PrintMessage 56 ; Better not. If somebody saw you talking to a $NOUN
DoneWithTurn
END_COMMAND

COMMAND RESURRECT        
AtLocation 106 ; Player is located at HELL
 OR 
AtLocation 107 ; Player is located at HEAVEN
GoToRoom 25 ; Go to location 25 -- hotel room  >S
SendToRoom 216 214 ; Put item (PHARAO'S JEWELS) in room 214 (TREASURE CHEST)
SendToRoom 214 55 ; Put item (TREASURE CHEST) in room 55 (Treasure Chamber  >S)
SendToRoom 225 8 ; Put item (PHARAO'S SARCOPHAGUS) in room 8 (Exhibition Hall  >S)
PrintMessage 59 ; You awake from a strange dream, covered in sweat. 
TurnFlagON 99 ; Turn flag number 99 ON
DoneWithTurn
END_COMMAND

COMMAND ANY        
FlagON 99 ; Flag number 99 is ON?
NOT IsCarrying 211 ; SACRED AMULET is NOT being carried?
NOT IsCarrying 224 ; SMALL CHANGE is NOT being carried?
Destroy 223 ; Destroy noun (100-DOLLAR BILL)
GetIt 224 ; Get noun 224 -- SMALL CHANGE
TurnFlagOFF 3 ; Turn flag number 3 OFF
END_COMMAND

COMMAND ANY        
AtLocation 26 ; Player is located at hotel corridor  >N S E W
AddToVariable 9 1 ; Increase variable number 9 by 1
END_COMMAND

COMMAND ANY        
AtLocation 26 ; Player is located at hotel corridor  >N S E W
VariableGT 9 7 ; Variable number 9 is equal to 7?
SendToRoom 235 25 ; Put item (LEATHER SUITCASE) in room 25 (hotel room  >S)
END_COMMAND

COMMAND EXAMINE REMAINS    
AtLocation 54 ; Player is located at Guard Room  >E
NOT IsCarrying 231 ; MASTER KEYRING is NOT being carried?
PrintMessage 79 ; As you browse through the dusty remains of hundred
PutInCurrentRoom 231 ; Put noun (MASTER KEYRING) in current room
DoneWithTurn
END_COMMAND

COMMAND NORTH        
AtLocation 71 ; Player is located at high reeds  >ALL
FlagON 10 ; Flag number 10 is ON?
PrintMessage 61 ; This embalming fluid you drank must be doing somet
DoneWithTurn
END_COMMAND

COMMAND NORTHEAST        
AtLocation 61 ; Player is located at rolling dunes  >ALL
FlagON 10 ; Flag number 10 is ON?
PrintMessage 61 ; This embalming fluid you drank must be doing somet
DoneWithTurn
END_COMMAND

COMMAND SOUTH        
AtLocation 71 ; Player is located at high reeds  >ALL
FlagON 10 ; Flag number 10 is ON?
PrintMessage 61 ; This embalming fluid you drank must be doing somet
DoneWithTurn
END_COMMAND

COMMAND EAST        
AtLocation 61 ; Player is located at rolling dunes  >ALL
FlagON 10 ; Flag number 10 is ON?
PrintMessage 61 ; This embalming fluid you drank must be doing somet
DoneWithTurn
END_COMMAND

COMMAND WEST        
AtLocation 71 ; Player is located at high reeds  >ALL
FlagON 10 ; Flag number 10 is ON?
PrintMessage 61 ; This embalming fluid you drank must be doing somet
DoneWithTurn
END_COMMAND

COMMAND WEST        
AtLocation 61 ; Player is located at rolling dunes  >ALL
FlagON 10 ; Flag number 10 is ON?
PrintMessage 61 ; This embalming fluid you drank must be doing somet
DoneWithTurn
END_COMMAND

COMMAND EAST        
AtLocation 71 ; Player is located at high reeds  >ALL
FlagON 10 ; Flag number 10 is ON?
PrintMessage 61 ; This embalming fluid you drank must be doing somet
DoneWithTurn
END_COMMAND

COMMAND SOUTHEAST        
AtLocation 61 ; Player is located at rolling dunes  >ALL
FlagON 10 ; Flag number 10 is ON?
PrintMessage 61 ; This embalming fluid you drank must be doing somet
DoneWithTurn
END_COMMAND

COMMAND SOUTHWEST        
AtLocation 61 ; Player is located at rolling dunes  >ALL
FlagON 10 ; Flag number 10 is ON?
PrintMessage 61 ; This embalming fluid you drank must be doing somet
DoneWithTurn
END_COMMAND

COMMAND NORTHWEST        
AtLocation 61 ; Player is located at rolling dunes  >ALL
FlagON 10 ; Flag number 10 is ON?
PrintMessage 61 ; This embalming fluid you drank must be doing somet
DoneWithTurn
END_COMMAND

COMMAND ANY        
AtLocation 106 ; Player is located at HELL
 OR 
AtLocation 107 ; Player is located at HEAVEN
PrintMessage 58 ; This is the end.                                  
END_COMMAND


REM  ----  Flags, Counters, and Variables Used

REM  ----  Flags Used
REM  Flag 1
REM  Flag 2
REM  Flag 3
REM  Flag 5
REM  Flag 6
REM  Flag 10
REM  Flag 99

REM  ----  Counters Used
REM  Counter 1

REM  ----  Variables Used
REM  Variable 1
REM  Variable 2
REM  Variable 5
REM  Variable 9

